home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr48
/
pasclern.zip
/
AMORT1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-04-01
|
714b
|
39 lines
PROGRAM amortization_table;
VAR month : 1..12;
starting_month : 1..12;
balance : REAL;
PROCEDURE initialize_data;
BEGIN
balance := 2500.0;
starting_month := 5;
END;
PROCEDURE print_annual_header;
BEGIN
WRITELN('Annual header');
END;
PROCEDURE calculate_and_print;
BEGIN
balance := balance - 100.0;
WRITELN('The balance is ',balance:8:2,' month ',month:3);
END;
PROCEDURE print_annual_summary;
BEGIN
END;
BEGIN
initialize_data;
REPEAT
print_annual_header;
FOR month := starting_month TO 12 DO
BEGIN
calculate_and_print;
END;
print_annual_summary;
starting_month := 1;
UNTIL balance <= 0.0;
END. (* of main program *)